Namespace HBBSoft.Pivot
    <System.Serializable()> Friend NotInheritable Class ManageID
        Private _ID As Integer = 0

        Public Function NewID() As Integer
            _ID += 1
            Return _ID
        End Function

        Public Property CurrID() As Integer
            Get
                Return _ID
            End Get
            Set(ByVal value As Integer)
                _ID = value
            End Set
        End Property
    End Class
End Namespace
